home *** CD-ROM | disk | FTP | other *** search
- -----------------------------------------------
- - eXtreme Movie Manager -
- - MagicScript Technology -
- - 2002 Alessio "AleTsg" Viti -
- - 2003 Emmanuel "Manette" Jacobs -
- -----------------------------------------------
- - Web : ALLOCINE.FR -
- - Author : Alessio Viti / Emmanuel Jacobs -
- - Date : 1/06/2003 -
- - Comments : Import All Information available -
- -----------------------------------------------
- #MADEBY#=Alessio Viti / Emmanuel Jacobs
- #DATEBUILD#=1/06/2003
- #WEBSITE#=ALLOCINE.FR - (FRENCH)
- #NOTE#=Import All Information Available with Big Pictures
- #SCRIPTQUALITY#=4
- #ICONQUALITY#=4
- #REPLACESPACES#=+
- #WEBQUERY#=http://www.allocine.com/recherche/default.html?motcle=#MOVIE#
-
- #RIGHTPAGEFOUND#
-
- #STARTREADWEB#
- #PUT#=0#01#
-
- #FINDLINE#=Recherche complΦte sur AlloCinΘ avec#12##ONERROR#=*STOP*
-
- #FIND#=<I>#21##ONERROR#=*OK*
- #COMPUTECURSOR#=+2
- #PUTCURSOR#=#31#
-
- #STRING#=#06#=</I>
- #PUT#= #07#
- #STRING#=#09#=
-
- #PUT#=4#02#
- #PUT#=1#03#
-
- #REPEAT#
-
- #TAKEWORDLEN#=#04#,#31#,#02#
-
- #IF# #04#==#06#
- #GOTO#=EXITWHILE
- #ENDIF#
-
- #TAKEWORDLEN#=#05#,#31#,#03#
- #IF# #05#==#07#
- #STRING#=#05#=+
- #ENDIF#
-
- #STRING#=#10#=#09##05#
- #STRING#=#09#=#10#
-
- #COMPUTEVAR#=#31#=+1
-
- #WHILE# #04#<>#06#
-
- :EXITWHILE
-
- #STRING#=#33#=#09#
-
- #CONDITIONRIGHTPAGE# #01#==#12#
-
- #ENDRIGHTPAGEFOUND#
-
- #CREATEMOVIELIST#
- #STARTREADWEB#
- #FINDLINE#=<B>Films</B>#12##ONERROR#=*STOP*
- #PUT#=0#01#
- #PUT#=0#11#
-
- #WRITETITLELIST#=Films dΘjα sortis
- #WRITETITLELIST#=-----------------
-
- #FIND#=dans les titres de films dΘjα sortis :#12##ONERROR#=*OK*
-
- #IF# #01#==#12#
- #WRITETITLELIST#=Aucun rΘsultat
- #GOTO#=DejaNoResult
- #ENDIF#
-
- #STRING#=#04#=http://www.allocine.fr/recherche/rubrique.html?typerecherche=3&motcle=#33#
- #OPENNEWWEB#=#04#
- #SETCURSOR#=1
-
- #FINDLINE#=Recherche dans les titres de films dΘjα sortis avec#12##ONERROR#=*STOP*
-
- #REPEAT#
-
- #FIND#=<TR><TD><LI><A HREF="/film/fichefilm_gen_cfilm=#21##ONERROR#=*OK*
-
- #IF# #21#==#01#
- #PUT#=1#11#
- #GOTO#=ExitDejaWhile
- #ENDIF#
-
- #COMPUTECURSOR#=+46
- #PUTCURSOR#=#21#
-
- #FIND#=">#22##ONERROR#=*OK*
- #PUTCURSOR#=#22#
-
- #TAKEWORD#=#03#,#21#,#22#
-
- :DejaSearchForDetailMain
-
- #FIND#=<FONT color=#21##ONERROR#=*OK*
- #FIND#=>#21##ONERROR#=*OK*
- #FIND#=</FONT></A>#22##ONERROR#=*OK*
- #TAKEWORD#=#05#,#21#,#22#
-
- #CHECKVARIABLE#=#05#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
-
- :DejaSearchForDetailSecond
-
- #COMPUTEVAR#=#22#=+10
- #FIND#=</TD></TR>#23##ONERROR#=*OK*
- #TAKEWORD#=#06#,#22#,#23#
-
- #CHECKVARIABLE#=#06#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
-
- #STRING#=#04#=http://www.allocine.fr/film/fichefilm_gen_cfilm=#03#
-
- #WRITETITLELIST#=#04# ---> #05#
- #WRITETITLELIST#=
- #WRITETITLELIST#= #06#
- #WRITETITLELIST#=
-
- :ExitDejaWhile
-
- #WHILE# #01#==#11#
-
- #PUT#=0#11#
-
- #RESTOREWEB#
-
- :DejaNoResult
-
- #WRITETITLELIST#=
-
- #WRITETITLELIST#=Films α paraitre
- #WRITETITLELIST#=-----------------
-
- #FIND#=dans les prochaines sorties de films :#12##ONERROR#=*OK*
-
- #IF# #01#==#12#
- #WRITETITLELIST#=Aucun rΘsultat
- #GOTO#=AvenirNoResult
- #ENDIF#
-
- #STRING#=#04#=http://www.allocine.fr/recherche/rubrique.html?typerecherche=5&motcle=#33#
- #OPENNEWWEB#=#04#
- #SETCURSOR#=1
-
- #FINDLINE#=Recherche dans les prochaines sorties de films avec#12##ONERROR#=*STOP*
-
- #REPEAT#
-
- #FIND#=<TR><TD><LI><A HREF="/film/fichefilm_gen_cfilm=#21##ONERROR#=*OK*
-
- #IF# #21#==#01#
- #PUT#=1#11#
- #GOTO#=ExitAvenirWhile
- #ENDIF#
-
- #COMPUTECURSOR#=+46
- #PUTCURSOR#=#21#
-
- #FIND#=">#22##ONERROR#=*OK*
- #PUTCURSOR#=#22#
-
- #TAKEWORD#=#03#,#21#,#22#
-
- :AvenirSearchForDetailMain
-
- #FIND#=<FONT color=#21##ONERROR#=*OK*
- #FIND#=>#21##ONERROR#=*OK*
- #FIND#=</FONT></A>#22##ONERROR#=*OK*
- #TAKEWORD#=#05#,#21#,#22#
-
- #CHECKVARIABLE#=#05#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
-
- :AvenirSearchForDetailSecond
-
- #COMPUTEVAR#=#22#=+10
- #FIND#=</TD></TR>#23##ONERROR#=*OK*
- #TAKEWORD#=#06#,#22#,#23#
-
- #CHECKVARIABLE#=#06#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
-
- #STRING#=#04#=http://www.allocine.fr/film/fichefilm_gen_cfilm=#03#
-
- #WRITETITLELIST#=#04# ---> #05#
- #WRITETITLELIST#=
- #WRITETITLELIST#= #06#
- #WRITETITLELIST#=
-
- :ExitAvenirWhile
-
- #WHILE# #01#==#11#
-
- #RESTOREWEB#
-
- :AvenirNoResult
-
- #ENDCREATEMOVIELIST#
-
- #MOVIETITLE#
- #STARTREADWEB#
- #FINDLINE#=<TITLE>#12# #ONERROR#=*STOP*
- #COMPUTECURSOR#=+6
- #PUTCURSOR#=#21#
- #FIND#=</TITLE>#03# #ONERROR#=*ASK*
- #PUTCURSOR#=#22#
- #TAKEWORD#=#06#,#21#,#22#
- #CHECKVARIABLE#=#06#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TITLE#=#06# #ONERROR#=*ASK*
- #ENDMOVIETITLE#
-
-
- #DIRECTOR#
- #STARTREADWEB#
- #FINDLINE#=RΘalisΘ par#12##ONERROR#=*STOP*
- #PUT#=0#09#
- #REPEAT#
- #FIND#=Href="#10# #ONERROR#=*OK*
- #IF# #10#==#09#
- #GOTO#=GOLABEL
- #ENDIF#
- #FIND#=>#01# #ONERROR#=*ASK*
- #FIND#=<#02# #ONERROR#=*ASK*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEDIRECTOR#=#03#
- #WHILE# #09#<>#10#
- :GOLABEL
- #ENDDIRECTOR#
-
- #ACTORS#
- #STARTREADWEB#
- #FINDLINE#=Avec #12##ONERROR#=*STOP*
- #FIND#=RΘalisΘ par#22# #ONERROR#=*OK*
- #SETCURSOR#=1
- #PUT#=0#09#
- #PUT#=Plus...#49#
- #IF# #09#==#12#
- #GOTO#=CAST2
- #ENDIF#
- #REPEAT#
- #FIND#=Href="#10# #ONERROR#=*OK*
- #IF# #10#==#09#
- #GOTO#=CAST2
- #ENDIF#
- #IF# #22#<<#10#
- #GOTO#=CAST2
- #ENDIF#
-
- #FIND#=>#01# #ONERROR#=*ASK*
- #FIND#=<#02# #ONERROR#=*ASK*
- #TAKEWORD#=#03#,#01#,#02#
-
- #IF# #49#<>#03#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEACTOR#=#03#
- #ENDIF#
-
- #WHILE# #09#<>#10#
- :CAST2
- :ENDCAST
- #ENDACTORS#
-
- #GENRE#
- #STARTREADWEB#
- #FINDLINE#=<FONT Class="titrePage">#12##ONERROR#=*STOP*
- #FIND#=Film #01# #ONERROR#=*OK*
- #FIND#=.#01# #ONERROR#=*OK*
- #PUTCURSOR#=#01#
- #COMPUTECURSOR#=+1
- #FIND#=.#22# #ONERROR#=*STOP*
- #SETCURSOR#=1
- #FIND#=<FONT CLass="titrePage">#12##ONERROR#=*STOP*
- #FIND#=Film #01# #ONERROR#=*OK*
- #FIND#=.#01# #ONERROR#=*OK*
- #PUT#=, #04#
- #PUT#=#03#
- #REPEAT#
- :DEBUTGENRE
- #FIND#=>#01# #ONERROR#=*OK*
- #FIND#=<#02# #ONERROR#=*STOP*
- #IF# #02#>>#22#
- #GOTO#=ENDGENRE
- #ENDIF#
- #TAKEWORD#=#03#,#01#,#02#
- #IF# #03#==#04#
- #GOTO#=DEBUTGENRE
- #ENDIF#
- #WHILE# #01#<>#12#
-
- :ENDGENRE
-
- #TAKEGENRE#=#03#
-
- #ENDGENRE#
-
- #RATING#
- #STARTREADWEB#
- #FINDLINE#=class="link1">Spectateurs#12##ONERROR#=*STOP*
- #FIND#=etoile_#01# #ON ERROR#=*OK*
- #FIND#=_#01# #ON ERROR#=*OK*
- #FIND#=.gif#02# #ON ERROR#=*OK*
- #TAKEWORD#=#03#,#01#,#02#
- #TAKERATING#=#03#
- #ENDRATING#
-
- #PLOT#
- #STARTREADWEB#
- #FINDLINE#=Synopsis#12##ONERROR#=*STOP*
- #FIND#=<TR><TD VAlign='top'><DIV Align='justify'><FONT class="size2">#10##ONERROR#=*STOP*
- #COMPUTECURSOR#=+61
- #PUTCURSOR#=#21#
-
- #PUT#=0#09#
- #PUT#=#06#
-
- #REPEAT#
-
- #FIND#=</FONT></DIV></TD></TR>#10# #ONERROR#=*OK*
- #IF# #10#<>#09#
- #PUTCURSOR#=#22#
- #TAKEWORD#=#07#,#21#,#22#
- #STRING#=#08#=#06##07#
- #STRING#=#06#=#08#
- #PUT#=1#10#
- #GOTO#=DABOUDI
- #ENDIF#
- #IF# #10#==#09#
- #FIND#=<br>#10# #ONERROR#=*OK*
- #PUTCURSOR#=#22#
- #TAKEWORD#=#07#,#21#,#22#
- #STRING#=#08#=#06##07#
- #STRING#=#06#=#08#
- #READNEXTLINE#
- #PUT#=0#21#
- #PUT#=0#10#
- #ENDIF#
-
- :DABOUDI
-
- #WHILE# #09#==#10#
-
- #FIND#=Site officiel#10# #ONERROR#=*OK*
-
- #IF# #10#==#09#
- #GOTO#=NoWebSite
- #ENDIF#
-
- #FIND#=target=_blank>#10# #ONERROR#=*OK*
-
- #IF# #10#==#09#
- #GOTO#=NoWebSite
- #ENDIF#
-
- #COMPUTECURSOR#=+13
- #PUTCURSOR#=#21#
- #FIND#=</A>#10# #ONERROR#=*OK*
-
- #IF# #10#==#09#
- #GOTO#=NoWebSite
- #ENDIF#
-
- #PUTCURSOR#=#22#
-
- #TAKEWORD#=#07#,#21#,#22#
- #STRING#=#08#=#06# [ Site Officiel: #07# ]
- #STRING#=#06#=#08#
-
- :NoWebSite
-
- #STRING#=#03#=#06#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEPLOT#=#03# #ONERROR#=*ASK*
-
- #ENDPLOT#
-
- #RUNTIME#
- #STARTREADWEB#
- #FINDLINE#=DurΘe#12##ONERROR#=*STOP*
- #FIND#=:#01# #ONERROR#=*STOP*
- #FIND#=;#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #TAKERUNTIME#=#03# #ONERROR#=*ASK*
- #ENDRUNTIME#
-
- #YEAR#
- #STARTREADWEB#
- #FINDLINE#=<TR><TD>Film #12##ONERROR#=*STOP*
- #FIND#=</FONT> (#01# #ONERROR#=*STOP*
- #COMPUTECURSOR#=+8
- #PUTCURSOR#=#21#
- #PUT#=4#02#
- #TAKEWORDLEN#=#03#,#21#,#02#
- #TAKEYEAR#=#03# #ONERROR#=*ASK*
- #ENDYEAR#
-
- #COUNTRY#
- #STARTREADWEB#
- #FINDLINE#=<TR><TD>Film #12##ONERROR#=*STOP*
- #COMPUTECURSOR#=+17
- #PUTCURSOR#=#21#
- #FIND#=</FONT> (#01# #ONERROR#=*STOP*
- #PUTCURSOR#=#22#
- #TAKEWORD#=#03#,#21#,#22#
-
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
-
- #TAKECOUNTRY#=#03#
- #ENDCOUNTRY#
-
- #MOVIEID#
- #STARTREADWEB#
- #FINDLINE#=Valeur=#12##ONERROR#=*ASK*
- #FIND#==#01# #ONERROR#=*STOP*
- #FIND#=# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #TAKEMOVIEID#=#03#
- #ENDMOVIEID#
-
- #POSTER#
- #STARTREADWEB#
- #FINDLINE#=Valeur=#12##ONERROR#=*ASK*
- #FIND#==#01# #ONERROR#=*STOP*
- #FIND#='#02# #ONERROR#=*STOP*
- #TAKEWORD#=#06#,#01#,#02#
- #STARTREADWEB#
- #FINDLINE#=.jpg#12##ONERROR#=*STOP*
- #SETCURSOR#=1
- #FIND#=http://#01# #ONERROR#=*STOP*
- #FIND#=.jpg#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #STRING#=#04#=h#03#.jpg
- #STRING#=#40#=#04#
- #STRING#=#50#=http://www.allocine.com/film/galerie.html?cfilm=#06#&rc=15
- #OPENNEWWEB#=#50#
- #FINDLINE#=.jpg#12##ONERROR#=*STOP*
- #SETCURSOR#=1
- #FIND#=http://#01# #ONERROR#=*STOP*
- #FIND#=.jpg#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #STRING#=#04#=h#03#.jpg
- #TAKEPOSTER#=#04#
- #REPEAT#
- #FIND#=http://#01# #ONERROR#=*STOP*
- #FIND#=.jpg#02# #ONERROR#=*STOP*
- #IF# #01#<<#12#
- #GOTO#=ENDPSTER
- #ENDIF#
- #TAKEWORD#=#03#,#01#,#02#
- #STRING#=#04#=h#03#.jpg
- #TAKEPOSTER#=#04#
- #WHILE# #02#<>#12#
- :ENDPSTER
- #RESTOREWEB#
- #TAKEPOSTER#=#40#
- #ENDPOSTER#
-
- #DELETETAGS#
- #DELETEWORD#=<sup>
- #DELETEWORD#=</sup>
- #DELETEWORD#=<BR>
- #DELETEWORD#=<br>
- #DELETEWORD#=<BR />
- #DELETEWORD#=<br />
- #DELETEWORD#=</BR>
- #DELETEWORD#=</br>
- #DELETEWORD#=<P>
- #DELETEWORD#=</P>
- #DELETEWORD#=<p>
- #DELETEWORD#=</p>
- #DELETEWORD#=<BLOCKQUOTE>
- #DELETEWORD#=</BLOCKQUOTE>
- #DELETEWORD#=<blockquote>
- #DELETEWORD#=</blockquote>
- #DELETEWORD#=<B>
- #DELETEWORD#=</B>
- #DELETEWORD#=<b>
- #DELETEWORD#=</b>
- #DELETEWORD#=<I>
- #DELETEWORD#=</I>
- #DELETEWORD#=<i>
- #DELETEWORD#=</i>
- #DELETEWORD#=<U>
- #DELETEWORD#=</U>
- #DELETEWORD#=<u>
- #DELETEWORD#=</u>
- #DELETEWORD#=<font size=2>
- #DELETEWORD#=<FONT Class="size2">
- #DELETEWORD#=</FONT>
- #DELETEWORD#=</A>
- #DELETEWORD#=</font>
- #DELETEWORD#=</a>
- #ENDDELETETAGS#
-
- #SUBSTITUTETAGS#
- #SUBSTITUTEWORD#= =
- #SUBSTITUTEWORD#=&NBSP;=
- #SUBSTITUTEWORD#= =
- #SUBSTITUTEWORD#=¡=í
- #SUBSTITUTEWORD#=¢=ó
- #SUBSTITUTEWORD#=£=ú
- #SUBSTITUTEWORD#=¤=ñ
- #SUBSTITUTEWORD#=¥=Ñ
- #SUBSTITUTEWORD#=¦=ª
- #SUBSTITUTEWORD#=§=º
- #SUBSTITUTEWORD#=¨=¿
- #SUBSTITUTEWORD#=©=⌐
- #SUBSTITUTEWORD#=ª=¬
- #SUBSTITUTEWORD#=«=½
- #SUBSTITUTEWORD#=¬=¼
- #SUBSTITUTEWORD#==¡
- #SUBSTITUTEWORD#=®=«
- #SUBSTITUTEWORD#=¯=»
- #SUBSTITUTEWORD#=°=░
- #SUBSTITUTEWORD#=±=▒
- #SUBSTITUTEWORD#=²=▓
- #SUBSTITUTEWORD#=³=│
- #SUBSTITUTEWORD#=´=┤
- #SUBSTITUTEWORD#=µ=╡
- #SUBSTITUTEWORD#=¶=╢
- #SUBSTITUTEWORD#=·=╖
- #SUBSTITUTEWORD#=¸=╕
- #SUBSTITUTEWORD#=¹=╣
- #SUBSTITUTEWORD#=º=║
- #SUBSTITUTEWORD#=»=╗
- #SUBSTITUTEWORD#=¼=╝
- #SUBSTITUTEWORD#=½=╜
- #SUBSTITUTEWORD#=¾=╛
- #SUBSTITUTEWORD#=¿=┐
- #SUBSTITUTEWORD#=À=└
- #SUBSTITUTEWORD#=Á=┴
- #SUBSTITUTEWORD#=Â=┬
- #SUBSTITUTEWORD#=Ã=├
- #SUBSTITUTEWORD#=Ä=─
- #SUBSTITUTEWORD#=Å=┼
- #SUBSTITUTEWORD#=Æ=╞
- #SUBSTITUTEWORD#=Ç=╟
- #SUBSTITUTEWORD#=È=╚
- #SUBSTITUTEWORD#=É=╔
- #SUBSTITUTEWORD#=Ê=╩
- #SUBSTITUTEWORD#=Ë=╦
- #SUBSTITUTEWORD#=Ì=╠
- #SUBSTITUTEWORD#=Í=═
- #SUBSTITUTEWORD#=Î=╬
- #SUBSTITUTEWORD#=Ï=╧
- #SUBSTITUTEWORD#=Ð=╨
- #SUBSTITUTEWORD#=Ñ=╤
- #SUBSTITUTEWORD#=Ò=╥
- #SUBSTITUTEWORD#=Ó=╙
- #SUBSTITUTEWORD#=Ô=╘
- #SUBSTITUTEWORD#=Õ=╒
- #SUBSTITUTEWORD#=Ö=╓
- #SUBSTITUTEWORD#=×=╫
- #SUBSTITUTEWORD#=Ø=╪
- #SUBSTITUTEWORD#=Ù=┘
- #SUBSTITUTEWORD#=Ú=┌
- #SUBSTITUTEWORD#=Û=█
- #SUBSTITUTEWORD#=Ü=▄
- #SUBSTITUTEWORD#=Ý=▌
- #SUBSTITUTEWORD#=Þ=▐
- #SUBSTITUTEWORD#=ß=▀
- #SUBSTITUTEWORD#=à=α
- #SUBSTITUTEWORD#=á=ß
- #SUBSTITUTEWORD#=â=Γ
- #SUBSTITUTEWORD#=ã=π
- #SUBSTITUTEWORD#=ä=Σ
- #SUBSTITUTEWORD#=å=σ
- #SUBSTITUTEWORD#=æ=µ
- #SUBSTITUTEWORD#=ç=τ
- #SUBSTITUTEWORD#=è=Φ
- #SUBSTITUTEWORD#=é=Θ
- #SUBSTITUTEWORD#=ê=Ω
- #SUBSTITUTEWORD#=ë=δ
- #SUBSTITUTEWORD#=ì=∞
- #SUBSTITUTEWORD#=í=φ
- #SUBSTITUTEWORD#=î=ε
- #SUBSTITUTEWORD#=ï=∩
- #SUBSTITUTEWORD#=ð=≡
- #SUBSTITUTEWORD#=ñ=±
- #SUBSTITUTEWORD#=ò=≥
- #SUBSTITUTEWORD#=ó=≤
- #SUBSTITUTEWORD#=ô=⌠
- #SUBSTITUTEWORD#=õ=⌡
- #SUBSTITUTEWORD#=ö=÷
- #SUBSTITUTEWORD#=÷=≈
- #SUBSTITUTEWORD#=ø=°
- #SUBSTITUTEWORD#=ù=∙
- #SUBSTITUTEWORD#=ú=·
- #SUBSTITUTEWORD#=û=√
- #SUBSTITUTEWORD#=ü=ⁿ
- #SUBSTITUTEWORD#=ý=²
- #SUBSTITUTEWORD#=þ=■
- #SUBSTITUTEWORD#=ÿ=
- #ENDSUBSTITUTETAGS#
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-